home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / 75ASKED.SRC < prev    next >
Text File  |  1990-11-03  |  6KB  |  357 lines
  1. ;\|
  2. ;RECALLS.SRC     Translated from RECALLS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;START    01:59:01 PM   9/ 4/90   |
  4. RECALLSX:
  5. define(Z30|A|30||)
  6. define(YES.NO|A|1||)
  7. define(NUM_N|N|2||)
  8. define(NUM|A|2||)
  9. define(DATE_A|A|8||)
  10. define(DATE_B|A|10||)
  11. define(TO_DATE|S|8||)
  12. define(SENT_DATE|S|8||)
  13. define(CHK_DATE|S|8||)
  14. define(PUNC2|N|2||)
  15. define(CH_NAME|A|15||)
  16. define(HIS|A|3||)
  17. define(CLIN_DAY|A|25||)
  18. define(CLIN_TIME|A|10||)
  19. define(CNTR|N|2||)
  20. define(FLAG|A|1||)
  21. define(AMOUNTX|N|4||)
  22. define(S10|A|10||)
  23. define(DATECOD|S|8||)
  24. define(CODER|A|5||)
  25. define(C30|A|30||)
  26. define(TM|A|27||4)
  27. define(A30|A|30||)
  28. define(CHOICE|N|1||)
  29. define(TDND|S|8||)
  30. define(DATERP|S|8||)
  31. define(B30|A|30||)
  32. define(S1|A|1||)
  33. define(TD|S|8||)
  34. define(A8|A|8||)
  35. define(B8|A|8||)
  36. define(YES.NO|A|1||)
  37. define(N5|N|5||)
  38. define(D1|A|1||)
  39. define(NY|A|1||)
  40. define(CODEX1|S|8||)
  41. define(CTR|N|2||)
  42. define(DATEN|N|2||)
  43. define(DATEX|S|8||)
  44. define(ARRAY1|A|30||9)
  45. define(ARRAY2|A|30||9)
  46. define(TIT|A|4||)
  47. define(PATIENT1A|A|30||)
  48. define(PUNC1|N|2||)
  49. define(N.2.0.P|N|2||)
  50. define(P.2.0.1|N|2||)
  51. define(P.2.0.2|N|2||)
  52. define(PATIENT2|A|30||)
  53. define(P.2.0.3|N|2||)
  54. define(RECTYPE1|A|4||)
  55. define(RECTYPE2|A|4||)
  56. define(PATIENT1|A|30||)
  57. define(DOB1|D|10||)
  58. define(DOB2|D|10||)
  59. STARTREC:
  60. open(PATIENT||0|FILE_LOCK)
  61. open(GPSETUP||0|)
  62. open(RECALLS||0|FILE_LOCK)
  63. date(TD|G)
  64. trap(I|G|PRINTSTOP)
  65. trap(S|I)
  66. trap(D|I)
  67. trap(F|I)
  68. trap(R|I)
  69. trap(B|I)
  70. trap(G|I)
  71. trap(M|I)
  72. trap(N|I)
  73. trap(Q|G|MENU)
  74. LASTSEEN:
  75. trap(I|S|PRINTSTOP)
  76. trap(J|G|STARTREC)
  77. mount(LABS|S)
  78. enter(TO_DATE||||N|Y|N|||N)
  79. enter(YES.NO|"YN"|||Y|Y|N|||N)
  80. if YES.NO <> ("Y") goto LASTSEEN
  81. gosub RECLABS
  82. find(B|PATIENT.NAME|EXIT|)
  83. TEST_SEEN:
  84. if DATE.OF.BIRTH < (TO_DATE) do
  85. {
  86. gosub PRINT_SEEN
  87. }
  88. NEXT_SEEN:
  89. find(N|PATIENT|EXIT_PRINT|)
  90. pmsg(RECORD.NUMBER|1|1|N|N|S|)
  91. goto TEST_SEEN
  92. PRINT_SEEN:
  93. gosub SEXIST
  94. gosub NEWX
  95. CNTR = (CNTR+1)
  96. ARRAY1[CNTR] = (Z30)
  97. if VISIT = ("S") then ARRAY2[CNTR] = ("INVITE FOR 75 CHECK :"+SENT_FOR)
  98. if VISIT = ("Y") then ARRAY2[CNTR] = ("VISIT ETC ACCEPTED")
  99. if VISIT = ("V") then ARRAY2[CNTR] = ("VISITED ON")
  100. if CNTR = (9) gosub SEEN_PRINT
  101. ret
  102. SEEN_PRINT:
  103. pfmt(1|||N|N|)
  104. pfmt(2|||N|N|)
  105. pfmt(3|||n|n|)
  106. pfmt(4|||n|n|)
  107. pfmt(5|||n|n|)
  108. pfmt(6|||n|n|)
  109. pfmt(7|||n|n|)
  110. pfmt(8|||n|n|)
  111. pfmt(9|||n|n|)
  112. CNTR = (0)
  113. gosub CL_ARRAY
  114. ret
  115. EXIT_PRINT:
  116. gosub SEEN_PRINT
  117. goto EXIT
  118. TOPOF:
  119. ptof
  120. ret
  121. RECLABS:
  122. NY = ("X")
  123. trap(P|D)
  124. trap(I|S|PRINTSTOP)
  125. pchr(P|10)
  126. pchr(P|12)
  127. pchr(P|4)
  128. mount(RPLABELS|R|P)
  129. pset(130|8|8)
  130. pchr(P|1)
  131. D1 = ("X")
  132. ret
  133. CL_ARRAY:
  134. clrmem(ARRAY1|9)
  135. clrmem(ARRAY2|9)
  136. ret
  137. EXITX:
  138. goto EXIT
  139. REPONLY:
  140. run("REPONLY")
  141. SEXIST:
  142. if SEX = ("M") then TIT = ("Mr.")
  143. if SEX = ("F") do
  144. {
  145. if MARITAL.STATUS = ("M") do
  146. {
  147. TIT = ("Mrs.")
  148. }
  149. else
  150. {
  151. TIT = ("Ms.")
  152. }
  153. }
  154. if SEX = ("") then TIT = ("Ms.")
  155. trim(TIT|T)
  156. ret
  157. NEWX:
  158. NY = (" ")
  159. PATIENT1A = (PATIENT.NAME)
  160. trim(PATIENT1A|T)
  161. PUNC1 =loc(","|PATIENT1A|1||27)
  162. N.2.0.P =siz(A|PATIENT.NAME)
  163. P.2.0.1 = (PUNC1-1)
  164. PATIENT2 =mid(PATIENT.NAME|1|P.2.0.1|)
  165. P.2.0.2 = (PUNC1+2)
  166. P.2.0.3 = (N.2.0.P-P.2.0.2+1)
  167. PATIENT1 =mid(PATIENT1A|P.2.0.2|P.2.0.3|)
  168. trim(PATIENT1|T)
  169. trim(PATIENT2|T)
  170. Z30 = (TIT+PATIENT1+NY+PATIENT2)
  171. ret
  172. CLEARALL:
  173. clr(PATIENT|B)
  174. clr(RECALLS|B)
  175. S1 = ("")
  176. DATEX = (0)
  177. YES.NO = ("")
  178. ret
  179. EXIT:
  180. run("recmenu")
  181. EXIT1:
  182. run("recmenu")
  183. PRINTSTOP:
  184. pon(S)
  185. clrlne(1|25)
  186. pmsg("CONTINUE ? (Y/N):"|30|12|N|N|S|)
  187. enter(YES.NO|"YN"||PRINTSTOP|Y|Y|N|48|12|N)
  188. if YES.NO <> ("Y") then run("recmenu")
  189. pon(P)
  190. ret
  191. MENU:
  192. TM[1] = (" 1 - EXIT             01011")
  193. menu(1|20|2|23|0|TM|CHOICE|1|22|MENU||"-------RECALLS--------"|N)
  194. on(CHOICE|G|EXIT1|MENU)
  195. TRACE:
  196. break
  197. ret
  198. FILE_LOCK:
  199. pmsg("FILE PATIENT AND/OR RECALLS IS IN USE - EXIT"|20|24|Y|N|S|)
  200. clrlne(1|24)
  201. run("recmenu")
  202. HELP:
  203. ret
  204. \R RPLABELS
  205. &                                      &                                        &
  206. &                                      &                                        &
  207. -          -          -                -          -          -                  -          -          -
  208. &                                      &                                        &
  209. &                                      &                                        &
  210. -          -          -                -          -          -                  -          -          -
  211. &                                      &                                        &
  212. &                                      &                                        &
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253. \
  254. ARRAY1[1]
  255. ARRAY1[2]
  256. ARRAY1[3]
  257. ARRAY2[1]
  258. ARRAY2[2]
  259. ARRAY2[3]
  260. ARRAY1[4]
  261. ARRAY1[5]
  262. ARRAY1[6]
  263. ARRAY2[4]
  264. ARRAY2[5]
  265. ARRAY2[6]
  266. ARRAY1[7]
  267. ARRAY1[8]
  268. ARRAY1[9]
  269. ARRAY2[7]
  270. ARRAY2[8]
  271. ARRAY2[9]
  272. \
  273. \STLABS    
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.                      PRINTS LABELS FOR NOTES FOR 75 YR SENT FOR
  281.  
  282.                      ENTER LATEST dob     : &        EG 01/04/15
  283.                               CONTINUE:&
  284.  
  285.                        REQUIRES 3 ABREAST LABELS IN PRINTER
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298. \
  299. TO_DATE
  300. YES.NO
  301. \
  302. \R NEW     
  303. &                             &                       &
  304. Patient was sent a request for home visit on : &
  305. Patient replied in affirmative.
  306. Patient was visited.Details on separate card.
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351. \
  352. PATIENT.NAME
  353. ADDRESS1
  354. DATE.OF.BIRTH
  355. SENT_FOR
  356. \
  357.